#define SIGNAL_NONE 0 #define SIGNAL_BUY 1 #define SIGNAL_SELL 2 #define SIGNAL_CLOSEBUY 3 #define SIGNAL_CLOSESELL 4 #property copyright "Matt Edmonds" extern int MagicNumber = 0; extern int RiskFactor = 26; extern bool SignalMail = False; extern bool EachTickMode = True; extern double Lots = 0.1; extern int Slippage = 2; extern bool StopLossMode = True; extern int StopLoss = 70; extern bool TakeProfitMode = True; extern int TakeProfit = 150; extern bool TrailingStopMode = True; extern int TrailingStop = 30; extern bool UseHourTrade = True; extern int FromHourTrade = 10; extern int ToHourTrade = 10; extern bool RequiredStochLevelSell = True; extern int StochSell = 40; extern bool RequiredStochLevelBuy = True; extern int StochBuy = 60; extern int stochShort = 1; extern int stochMed = 20; extern int stochLong = 50; extern int ShortStochSellEntry = 80; extern int ShortStochBuyEntry = 20; extern int ShortStochSellExit = 10; extern int ShortStochBuyExit = 90; extern bool MaxStochDiffMedvsLong = True; extern int MaxStochDifference = 8; extern int TwoPeriodExitMultiple = 16; extern int EMAPeriod = 40; int BarCount; int Current; bool TickCheck = False; //+------------------------------------------------------------------+ //| expert initialization function | //+------------------------------------------------------------------+ int init() { BarCount = Bars; if (EachTickMode) Current = 0; else Current = 1; return(0); } //+------------------------------------------------------------------+ //| expert deinitialization function | //+------------------------------------------------------------------+ int deinit() { return(0); } //+------------------------------------------------------------------+ //| expert start function | //+------------------------------------------------------------------+ int start() { if (UseHourTrade){ if (!(Hour()>=FromHourTrade && Hour()<=ToHourTrade)) { Comment("Time for trade has not come else!"); } } int Order = SIGNAL_NONE; int Total, Ticket; double StopLossLevel, TakeProfitLevel; if (EachTickMode && Bars != BarCount) TickCheck = False; Total = OrdersTotal(); Order = SIGNAL_NONE; //+------------------------------------------------------------------+ //| Variable Begin | //+------------------------------------------------------------------+ double Var1 = iStochastic(NULL, 0, stochShort, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 0); double Var2 = iStochastic(NULL, 0, stochShort, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 1); double Var3 = iStochastic(NULL, 0, stochMed, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 0); double Var4 = iStochastic(NULL, 0, stochMed, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 1); double Var5 = iStochastic(NULL, 0, stochLong, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 0); double Var6 = iStochastic(NULL, 0, stochLong, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 1); double Var7 = iStochastic(NULL, 0, stochMed, 1, 3, MODE_SMA, 0, MODE_MAIN, Current + 2); double Buy1_1 = Var5; double Buy1_2 = StochBuy; double Buy2_1 = Var3; double Buy2_2 = StochBuy; double Buy3_1 = 5; double Buy3_2 = Var4 - Var3 ; double Buy4_1 = Var3 - MaxStochDifference; double Buy4_2 = Var5 ; double Buy5_1 = iMA(NULL, 0, EMAPeriod, 0, MODE_EMA, PRICE_CLOSE, Current + 0); double Buy5_2 = iMA(NULL, 0, EMAPeriod, 0, MODE_EMA, PRICE_CLOSE, Current + 1); double Buy6_1 = iClose(NULL, 0, Current + 0); double Buy6_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0); double Buy7_1 = 0; double Buy7_2 = 0; double Buy8_1 = iCustom(NULL, 0, "Keltner Channels", 0, Current + 0); double Buy8_2 = iClose(NULL, 0, Current + 0); double Buy9_1 = Var1; double Buy9_2 = ShortStochBuyEntry; double Buy10_1 = Var5 + 7; double Buy10_2 = Var6 ; double Buy11_1 = Var3 +10; double Buy11_2 = Var4 ; double Buy12_1 = iHigh(NULL, 0, Current + 0); double Buy12_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0); double Buy13_1 = iCustom(NULL, 0, "Keltner Channels B", 2, Current + 0); double Buy13_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0); double Buy14_1 = iLow(NULL, 0, Current + 0); double Buy14_2 = iMA(NULL, 0, 9, 0, MODE_EMA, PRICE_CLOSE, Current + 0); double Buy15_1 = Var3 ; double Buy15_2 = Var4 ; double Sell1_1 = Var5; double Sell1_2 = StochSell; double Sell2_1 = Var3 ; double Sell2_2 = StochSell; double Sell3_1 = -5; double Sell3_2 = Var4 - Var3 ; double Sell4_1 = Var3 + MaxStochDifference; double Sell4_2 = Var5 ; double Sell5_1 = iMA(NULL, 0, EMAPeriod, 0, MODE_EMA, PRICE_CLOSE, Current + 0); double Sell5_2 = iMA(NULL, 0, EMAPeriod, 0, MODE_EMA, PRICE_CLOSE, Current + 1); double Sell6_1 = iClose(NULL, 0, Current + 0); double Sell6_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, Current + 0); double Sell7_1 = iCustom(NULL, 0, "Keltner Channels", 2, Current + 0); double Sell7_2 = iClose(NULL, 0, Current + 0); double Sell8_1 = Var1 ; double Sell8_2 = ShortStochSellEntry; double Sell9_1 = Var1 ; double Sell9_2 = ShortStochSellEntry; double Sell10_1 = Var5 - 7; double Sell10_2 = Var6 ; double Sell11_1 = Var3 - 10; double Sell11_2 = Var4 ; double Sell12_1 = iLow(NULL, 0, Current + 0); double Sell12_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, Current + 0); double Sell13_1 = iCustom(NULL, 0, "Keltner Channels B", 0, Current + 0); double Sell13_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0); double Sell14_1 = iHigh(NULL, 0, Current + 0); double Sell14_2 = iMA(NULL, 0, 9, 0, MODE_EMA, PRICE_CLOSE, Current + 0); double Sell15_1 = Var3 ; double Sell15_2 = Var4 ; double CloseBuy1_1 = iCustom(NULL, 0, "Waddah_Attar_Explosion", 0, Current + 0); double CloseBuy1_2 = iCustom(NULL, 0, "Waddah_Attar_Explosion", 2, Current + 0); double CloseBuy2_1 = iCustom(NULL, 0, "Keltner Channels B", 2, Current + 0); double CloseBuy2_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, Current + 0); double CloseBuy3_1 = Var5 ; double CloseBuy3_2 = 80; double CloseBuy4_1 = Var4; double CloseBuy4_2 = 50; double CloseBuy5_1 = Var1 ; double CloseBuy5_2 = ShortStochBuyExit; double CloseBuy6_1 = iClose(NULL, 0, Current + 0); double CloseBuy6_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0); double CloseBuy7_1 = iCustom(NULL, 0, "Keltner Channels B", 2, Current + 0); double CloseBuy7_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, Current + 0); double CloseBuy8_1 = Var5 ; double CloseBuy8_2 = 90; double CloseBuy9_1 = Var3 + RiskFactor; double CloseBuy9_2 = Var4 ; double CloseBuy10_1 = Var3 + (TwoPeriodExitMultiple*RiskFactor/10); double CloseBuy10_2 = Var7 ; double CloseSell1_1 = iCustom(NULL, 0, "Waddah_Attar_Explosion", 1, Current + 0); double CloseSell1_2 = iCustom(NULL, 0, "Waddah_Attar_Explosion", 2, Current + 0); double CloseSell2_1 = iCustom(NULL, 0, "Keltner Channels B", 0, Current + 0); double CloseSell2_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0); double CloseSell3_1 = Var5 ; double CloseSell3_2 = 20; double CloseSell4_1 = Var4; double CloseSell4_2 = 50; double CloseSell5_1 = Var1 ; double CloseSell5_2 = ShortStochSellExit; double CloseSell6_1 = iClose(NULL, 0, Current + 0); double CloseSell6_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_LOWER, Current + 0); double CloseSell7_1 = iCustom(NULL, 0, "Keltner Channels B", 0, Current + 0); double CloseSell7_2 = iBands(NULL, 0, 20, 2, 0, PRICE_CLOSE, MODE_UPPER, Current + 0); double CloseSell8_1 = Var5 ; double CloseSell8_2 = 10; double CloseSell9_1 = Var3 - RiskFactor; double CloseSell9_2 = Var4 ; double CloseSell10_1 = Var3 - (TwoPeriodExitMultiple*RiskFactor/10); double CloseSell10_2 = Var7 ; //+------------------------------------------------------------------+ //| Variable End | //+------------------------------------------------------------------+ //Check position bool IsTrade = False; for (int i = 0; i < Total; i ++) { OrderSelect(i, SELECT_BY_POS, MODE_TRADES); if(OrderType() <= OP_SELL && OrderSymbol() == Symbol()) { IsTrade = True; if(OrderType() == OP_BUY) { //Close //+------------------------------------------------------------------+ //| Signal Begin(Exit Buy) | //+------------------------------------------------------------------+ if (CloseBuy1_1 < CloseBuy1_2 && ((CloseBuy2_1 > CloseBuy2_2 && CloseBuy3_1 < CloseBuy3_2 && CloseBuy4_1 < CloseBuy4_2) || (CloseBuy5_1 > CloseBuy5_2) || (CloseBuy6_1 > CloseBuy6_2 && CloseBuy7_1 < CloseBuy7_2 && CloseBuy8_1 < CloseBuy8_2)||CloseBuy9_1 0) { if(Bid - OrderOpenPrice() > Point * TrailingStop) { if(OrderStopLoss() < Bid - Point * TrailingStop) { OrderModify(OrderTicket(), OrderOpenPrice(), Bid - Point * TrailingStop, OrderTakeProfit(), 0, MediumSeaGreen); if (!EachTickMode) BarCount = Bars; continue; } } } } else { //Close //+------------------------------------------------------------------+ //| Signal Begin(Exit Sell) | //+------------------------------------------------------------------+ if (CloseSell1_1 < CloseSell1_2 && ((CloseSell2_1 < CloseSell2_2 && CloseSell3_1 > CloseSell3_2 && CloseSell4_1 > CloseSell4_2) || (CloseSell5_1 < CloseSell5_2) || (CloseSell6_1 < CloseSell6_2 && CloseSell7_1 < CloseSell7_2 && CloseSell8_1 > CloseSell8_2) || CloseSell9_1 > CloseSell9_2 || CloseSell10_1 > CloseSell10_2)) Order = SIGNAL_CLOSESELL; //+------------------------------------------------------------------+ //| Signal End(Exit Sell) | //+------------------------------------------------------------------+ if (Order == SIGNAL_CLOSESELL && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) { OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, DarkOrange); if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Ask, Digits) + " Close Sell"); if (!EachTickMode) BarCount = Bars; IsTrade = False; continue; } //Trailing stop if(TrailingStopMode && TrailingStop > 0) { if((OrderOpenPrice() - Ask) > (Point * TrailingStop)) { if((OrderStopLoss() > (Ask + Point * TrailingStop)) || (OrderStopLoss() == 0)) { OrderModify(OrderTicket(), OrderOpenPrice(), Ask + Point * TrailingStop, OrderTakeProfit(), 0, DarkOrange); if (!EachTickMode) BarCount = Bars; continue; } } } } } } //+------------------------------------------------------------------+ //| Signal Begin(Entry) | //+------------------------------------------------------------------+ if (Buy1_1 > Buy1_2 && Buy2_1 > Buy2_2 && Buy3_1 > Buy3_2 && Buy4_1 <= Buy4_2 && Buy5_1 > Buy5_2 && Buy6_1 < Buy6_2 && Buy7_1 == Buy7_2 && Buy8_1 > Buy8_2 && Buy9_1 < Buy9_2 && Buy10_1 > Buy10_2 && Buy11_1 > Buy11_2 && Buy12_1 < Buy12_2 && (Buy13_1 > Buy13_2 || Buy14_1 < Buy14_2 || Buy15_1 > Buy15_2) && (Hour()>=FromHourTrade || Hour()<=ToHourTrade)) Order = SIGNAL_BUY; if (Sell1_1 < Sell1_2 && Sell2_1 < Sell2_2 && Sell3_1 < Sell3_2 && Sell4_1 >= Sell4_2 && Sell5_1 < Sell5_2 && Sell6_1 > Sell6_2 && Sell7_1 < Sell7_2 && Sell8_1 > Sell8_2 && Sell9_1 > Sell9_2 && Sell10_1 < Sell10_2 && Sell11_1 < Sell11_2 && Sell12_1 > Sell12_2 && (Sell13_1 < Sell13_2 || Sell14_1 > Sell14_2 || Sell15_1 < Sell15_2) &&(Hour()>=FromHourTrade || Hour()<=ToHourTrade)) Order = SIGNAL_SELL; //+------------------------------------------------------------------+ //| Signal End | //+------------------------------------------------------------------+ //Buy if (Order == SIGNAL_BUY && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) { if(!IsTrade) { //Check free margin if (AccountFreeMargin() < (1000 * Lots)) { Print("We have no money. Free Margin = ", AccountFreeMargin()); return(0); } if (StopLossMode) StopLossLevel = Ask - StopLoss * Point; else StopLossLevel = 0.0; if (TakeProfitMode) TakeProfitLevel = Ask + TakeProfit * Point; else TakeProfitLevel = 0.0; Ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, Slippage, StopLossLevel, TakeProfitLevel, "Buy(#" + MagicNumber + ")", MagicNumber, 0, DodgerBlue); if(Ticket > 0) { if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES)) { Print("BUY order opened : ", OrderOpenPrice()); if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Ask, Digits) + " Open Buy"); } else { Print("Error opening BUY order : ", GetLastError()); } } if (EachTickMode) TickCheck = True; if (!EachTickMode) BarCount = Bars; return(0); } } //Sell if (Order == SIGNAL_SELL && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) { if(!IsTrade) { //Check free margin if (AccountFreeMargin() < (1000 * Lots)) { Print("We have no money. Free Margin = ", AccountFreeMargin()); return(0); } if (StopLossMode) StopLossLevel = Bid + StopLoss * Point; else StopLossLevel = 0.0; if (TakeProfitMode) TakeProfitLevel = Bid - TakeProfit * Point; else TakeProfitLevel = 0.0; Ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, Slippage, StopLossLevel, TakeProfitLevel, "Sell(#" + MagicNumber + ")", MagicNumber, 0, DeepPink); if(Ticket > 0) { if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES)) { Print("SELL order opened : ", OrderOpenPrice()); if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Bid, Digits) + " Open Sell"); } else { Print("Error opening SELL order : ", GetLastError()); } } if (EachTickMode) TickCheck = True; if (!EachTickMode) BarCount = Bars; return(0); } } if (!EachTickMode) BarCount = Bars; return(0); } //+------------------------------------------------------------------+